Archive Magazine CD 1995/Archive Magazine CD 1995.iso/discs/pipeline/5_05/ReadWrite/!Me_first6

Text File | 1991-12-19 | 5.6 KB | 657 lines

%OP%VS4.11 (04-Dec-91), David A. Crossley MRCVS, R4000 5002 0045 9952
%OP%DEExample of use of "linking" files
%OP%PL58
%OP%FX
%OP%FY
%OP%FS
%OP%WC2,1738,232,1360,12,9,0,0
%OP%PZA1A2
%OP%PZA18A18
%OP%PZA20P22
%OP%PZA23B27
%OP%PZA28P30
%OP%PZA31B31
%OP%PZA32P32
%OP%PZA34A34
%OP%PZA35C35
%OP%PZA36P37
%OP%PZA38A38
%OP%PZA39P39
%OP%PZA40A41
%OP%PZB19P19
%OP%PZC34P34
%OP%PZD38P38
%OP%PZJ18P18
%OP%PZO23P27
%OP%PZO31P31
%CO:A,17,72%   Title : @t@
Filename : @l@

%H1%%H2%Instructions

   Enter data in the table below. The totals will be saved to the
linking file (custom function sheet Read_Write) for the year entered
at top left of the chart, if it is within 1990-1991. An error is
reported if an invalid year is entered.

   If this system is used for serious purposes, do not have automatic
calculation of year file numbers as this can lead to accidental
overwriting of earlier data! (try entering figures for 1990, changing
year to 1991, editing the figures for 1991, then re-entering year as
1990.)


%R%%H1%%H2%Business summary for year @A19@
%V%%C%%D0%1991
%V%%R%if(A19<1990 | A19>1999,"Year out of range","")
%V%%R%" "
%V%%R%" "
Rent
Heat+light
Insurance
Wages
Stock
%V%%R%" "
%R%Total outgoings
%V%%R%" "
%R%Monthly takings
%V%%R%" "

Calc. "link" column
Write figures row
Write figures row
Write figures row
Calculate "file" number
%V%%R%A20
%C%Note error messages!
@C35@


I hope you find this of interest.
David A. Crossley  20:18:31  19 December 1991
%CO:B,3,0%

















:



-
-
-
-
-

-

-



%V%%R%%D0%1
%V%%R%%D0%2
%V%%R%%D0%3

%V%%R%B20
%CO:C,7,0%

















Year
%V%%R%" "
%R%Jan.
%V%%R%" "
%V%%R%0
%V%%R%10
%V%%R%65
%V%%R%275
%V%%R%60
%R%------
%V%%R%sum(C22C28)
%R%Jan.
%V%%R%950
%V%%R%" "

%V%%R%%D0%col(C34)-col($B34)
%V%%R%%D0%[Read_Writ6]write($D$38,C34,$B35,A19)
%V%%R%[Read_Writ6]write($D$38,C34,$B36,C29)
%V%%R%[Read_Writ6]write($D$38,C$34,$B37,C31)

%V%%R%C20
%CO:D,7,0%


















%V%%R%" "
%R%Feb.
%V%%R%" "
%V%%R%99
%V%%R%36
%V%%R%0
%V%%R%275
%V%%R%125
%R%------
%V%%R%sum(D22D28)
%R%Feb.
%V%%R%785
%V%%R%" "

%V%%R%%D0%col(D34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,D34,$B36,D29)
%V%%R%[Read_Writ6]write($D$38,D$34,$B37,D31)
%V%%R%%D0%int(A19-1990)
%V%%R%D20
%CO:E,7,0%


















%V%%R%" "
%R%Mar.
%V%%R%" "
%V%%R%0
%V%%R%10
%V%%R%55
%V%%R%275
%V%%R%258
%R%------
%V%%R%sum(E22E28)
%R%Mar.
%V%%R%550
%V%%R%" "

%V%%R%%D0%col(E34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,E34,$B36,E29)
%V%%R%[Read_Writ6]write($D$38,E$34,$B37,E31)

%V%%R%E20
%CO:F,7,0%


















%V%%R%" "
%R%Apr.
%V%%R%" "
%V%%R%0
%V%%R%0
%V%%R%0
%V%%R%275
%V%%R%96
%R%------
%V%%R%sum(F22F28)
%R%Apr.
%V%%R%500
%V%%R%" "

%V%%R%%D0%col(F34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,F34,$B36,F29)
%V%%R%[Read_Writ6]write($D$38,F$34,$B37,F31)

%V%%R%F20
%CO:G,7,0%


















%V%%R%" "
%R%May
%V%%R%" "
%V%%R%99
%V%%R%0
%V%%R%25
%V%%R%275
%V%%R%47
%R%------
%V%%R%sum(G22G28)
%R%May
%V%%R%400
%V%%R%" "

%V%%R%%D0%col(G34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,G34,$B36,G29)
%V%%R%[Read_Writ6]write($D$38,G$34,$B37,G31)

%V%%R%G20
%CO:H,7,0%


















%V%%R%" "
%R%June
%V%%R%" "
%V%%R%0
%V%%R%0
%V%%R%0
%V%%R%275
%V%%R%77
%R%------
%V%%R%sum(H22H28)
%R%June
%V%%R%350
%V%%R%" "

%V%%R%%D0%col(H34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,H34,$B36,H29)
%V%%R%[Read_Writ6]write($D$38,H$34,$B37,H31)

%V%%R%H20
%CO:I,7,0%


















%V%%R%" "
%R%July
%V%%R%" "
%V%%R%0
%V%%R%0
%V%%R%2
%V%%R%275
%V%%R%75
%R%------
%V%%R%sum(I22I28)
%R%July
%V%%R%450
%V%%R%" "

%V%%R%%D0%col(I34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,I34,$B36,I29)
%V%%R%[Read_Writ6]write($D$38,I$34,$B37,I31)

%V%%R%I20
%CO:J,7,0%


















%V%%R%" "
%R%Aug.
%V%%R%" "
%V%%R%99
%V%%R%30
%V%%R%0
%V%%R%275
%V%%R%99
%R%------
%V%%R%sum(J22J28)
%R%Aug.
%V%%R%550
%V%%R%" "

%V%%R%%D0%col(J34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,J34,$B36,J29)
%V%%R%[Read_Writ6]write($D$38,J$34,$B37,J31)

%V%%R%J20
%CO:K,7,0%


















%V%%R%" "
%R%Sep.
%V%%R%" "
%V%%R%0
%V%%R%0
%V%%R%15
%V%%R%275
%V%%R%125
%R%------
%V%%R%sum(K22K28)
%R%Sep.
%V%%R%600
%V%%R%" "

%V%%R%%D0%col(K34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,K34,$B36,K29)
%V%%R%[Read_Writ6]write($D$38,K$34,$B37,K31)

%V%%R%K20
%CO:L,7,0%


















%V%%R%" "
%R%Oct.
%V%%R%" "
%V%%R%0
%V%%R%0
%V%%R%0
%V%%R%275
%V%%R%457
%R%------
%V%%R%sum(L22L28)
%R%Oct.
%V%%R%650
%V%%R%" "

%V%%R%%D0%col(L34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,L34,$B36,L29)
%V%%R%[Read_Writ6]write($D$38,L$34,$B37,L31)

%V%%R%L20
%CO:M,7,0%


















%V%%R%" "
%R%Nov.
%V%%R%" "
%V%%R%99
%V%%R%0
%V%%R%0
%V%%R%275
%V%%R%422
%R%------
%V%%R%sum(M22M28)
%R%Nov.
%V%%R%750
%V%%R%" "

%V%%R%%D0%col(M34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,M34,$B36,M29)
%V%%R%[Read_Writ6]write($D$38,M$34,$B37,M31)

%V%%R%M20
%CO:N,7,0%


















%V%%R%" "
%R%Dec.
%V%%R%" "
%V%%R%0
%V%%R%0
%V%%R%13
%V%%R%275
%V%%R%41
%R%------
%V%%R%sum(N22N28)
%R%Dec.
%V%%R%800
%V%%R%" "

%V%%R%%D0%col(N34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,N34,$B36,N29)
%V%%R%[Read_Writ6]write($D$38,N$34,$B37,N31)

%V%%R%N20
%CO:O,2,0%


















%V%%R%" "

%V%%R%" "
%V%%R%" "
%V%%R%" "
%V%%R%" "
%V%%R%" "
%V%%R%" "




%V%%R%" "

%V%%R%%D0%col(O34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,O34,$B36,O29)


%V%%R%O20
%CO:P,9,0%


















%V%%R%" "
Subtotals
%V%%R%" "
%V%%R%sum(B23O23)
%V%%R%sum(B24O24)
%V%%R%sum(B25O25)
%V%%R%sum(B26O26)
%V%%R%sum(B27O27)
%R%------
%V%%R%sum(P22P28)
%R%TOTALS
%V%%R%sum(B31O31)
%V%%R%" "

%V%%R%%D0%col(P34)-col($B34)

%V%%R%[Read_Writ6]write($D$38,P34,$B36,P29)
%V%%R%[Read_Writ6]write($D$38,P$34,$B37,P31)

%V%%R%P20